<% Dim s_RootID '当然更改为其他跟栏目的时候，只需要适当的更改下面的值，就可以实现不同栏目。 s_RootID = "A" Sub GetNewsCata() Dim cRs, cSql, i, TempCataStr Set cRs = Server.CreateObject( "ADODB.Recordset" ) cSql = "SELECT * FROM NewsCata WHERE C_ID <> 1 ORDER BY C_RootID" cRs.Open cSql, oConn, 1, 3 Do While Not cRs.EOF TempCataStr = "" Response.Write TempCataStr cRs.MoveNext Loop cRs.Close Set cRs = Nothing End Sub ' 传入参数：新闻ID Dim sNewsID sNewsID = GetSafeInt(Trim(Request("id")),0) ' 新闻ID有效性验证，防止有些人恶意的破坏此演示程序 If sNewsID < 1 Then GoError "请通过页面上的链接进行操作，不要试图进行任何非法操作。" End If sSql="UPDATE NewsData SET D_Hits = D_Hits+1 WHERE D_ID="&sNewsID oConn.Execute sSql ' 从数据库中取初始值 Dim sCataID, sTitle, sContent, sPicture, sOriginalFileName, sSaveFileName, sSavePathFileName, sFrom, sAddTime, sHits sSql = "SELECT * FROM NewsData WHERE D_ID=" & sNewsID oRs.Open sSql, oConn, 0, 1 If Not oRs.Eof Then sCataID = oRs("D_CataID") sTitle = oRs("D_Title") sContent = oRs("D_Content") ' sPicture = oRs("D_Picture") ' sOriginalFileName = oRs("D_OriginalFileName") ' sSaveFileName = oRs("D_SaveFileName") ' sSavePathFileName = oRs("D_SavePathFileName") sFrom = oRs("D_From") sAddTime = oRs("D_AddTime") sHits = oRs("D_Hits") Else GoError "无效的新闻ID，请点页面上的链接进行操作！" End If oRs.Close Set oRs = Nothing ' 禁用某些标签，如出于安全考虑的Script标签，等 ' 要使用此功能需要先包含"Include/DeCode.asp"文件。 ' 此例只过滤SCRIPT标签，即意味着内容中的客户端脚本不会生效，您可根据实际的需要加入其它标签。 ' 当前支持过滤的标签，可以查看DeCode.asp文件中的说明。 sContent = eWebEditor_DeCode(sContent, "SCRIPT") %> <%=sTitle%>-<%=Homepage_Title%>
□ 新闻搜索 □
请输入查询的关键词:


标题查询 内容查询


□ 热点新闻 □
 

<%=sTitle%>
发布时间： <%=sAddTime%> 被阅览数： <%=sHits%> 次 来源： <%If sFrom <> "" then response.write ""& sFrom &"" Else response.write ""& Homepage_title &"" End If%>
文字 〖 大 中 小 〗 自动滚屏（右键暂停）

<% = Replace(sContent,"../UploadFile/","news/UploadFile/")%>

 

上两条同类新闻：
<% Dim aSql, aRs Set aRs = Server.CreateObject( "ADODB.Recordset" ) aSql = "SELECT TOP 2 D_ID, D_Title FROM NewsData WHERE D_CataID ='"& sCataID &"' and D_ID < "& sNewsID &" ORDER BY D_ID DESC" aRs.Open aSql, oConn, 0, 1 Do While Not aRs.EOF Response.Write "
  • "&aRs("D_Title")&"
    • " aRs.Movenext Loop aRs.Close() Set aRs = Nothing %>

    <% Call Footer() %>